/packedarraytype/exec load def

/arraytype/exec load def

/stringtype{{UCS}forall}B

/rrcurveto{6 2 roll iae23 6 -2 roll iae23 rcurveto}B

/iae23{2 iae 3 iae}B

/iae{index add exch}B

/Concat{6 array astore concat}B

/SG{cg /_sg xdf cg /_fg xdf}B

/cg{99 add 198 div}B

}B

}ifelse

{pop exec}ifelse

{dup 16#0C and 4 idiv setlinecap 16#30 and 16 idiv setlinejoin gsave exec grestore Stroke}

{dup 3 and FSA exch get exch dup 16#40 and 0 ne

/FillStroke{PaintType 0 ne{pop stroke}

/FSA[{_fg Sg fill}{_fg Sg eofill}{}]def

/Stroke{_sg Sg stroke}B

/Sg{/setgray load exec}B

/cName(c     )def

/NL 0 def/NS_ false def

/_fg 0 def/_sg 0 def

^\/xdf{exch FogStore}B

/FogStore{^8 3 1 roll put}B

/B{bind def}bind def

userdict begin/^8 45 dict def ^8 begin

userdict/^8 known{{currentfile(   )readstring{(%%%)eq{exit}if}{pop exit}ifelse}loop}if

systemdict/currentpacking known{true setpacking}if